home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / VISUALDBASE COMPILER / MUSAMPLE.PAK / MUSIC.MAK next >
Text File  |  1995-07-17  |  2KB  |  76 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Music.mak
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         5/95
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  VERSION:      Visual dBASE
  11. *
  12. *  DESCRIPTION:  This program compiles all the necessary files for building
  13. *                Music.exe, creating a response file, Musicmak.rsp.  It then
  14. *                builds the executable, Music.exe from the files listed in
  15. *                Musicmak.rsp.
  16. *                If you want to build Music.exe on your own, you can use the
  17. *                Music.rsp response file, which already exists
  18. *
  19. *
  20. *  USAGE:        DO Music.mak
  21. *
  22. *******************************************************************************
  23. #include <Messdlg.h>
  24.  
  25. private saveTalk
  26.  
  27. * Environment
  28. if set("talk") = "ON"
  29.    set talk off
  30.    saveTalk = "ON"
  31. else
  32.    saveTalk = "OFF"
  33. endif
  34.  
  35. * Make sure Musicmak.rsp and Music.exe don't exist
  36. if file("Musicmak.rsp")
  37.    delete file Musicmak.rsp
  38. endif
  39. if file("Music.exe")
  40.    delete file Music.exe
  41. endif
  42.  
  43. * Compile all necessary files to Musicmak.rsp response file.
  44. ?"Compiling necessary files..."
  45. compile auto Music.prg,;
  46.              &_dbwinhome.samples\Buttons.cc,;
  47.              Categors.qbe,;
  48.              Categors.wfm,;
  49.              Configs.qbe,;
  50.              Configs.wfm,;
  51.              Filter.wfm,;
  52.              Music.qbe,;
  53.              Musiview.wfm,;
  54.              Priorits.qbe,;
  55.              Priorits.wfm,;
  56.              Search.wfm,;
  57.              Skip.wfm,;
  58.              View.mnu,;
  59.              View.pop;
  60.         to Musicmak.rsp
  61.  
  62. * Build Music.exe from files listed in Musicmak.rsp
  63. ?"Building Music.exe..."
  64. build from Musicmak.rsp;
  65.            to Music.exe;
  66.            splash Bigmusic.bmp;
  67.            icon Music.ico
  68. if file("Music.exe")
  69.    InformationMessage("Music.exe built successfully", "Info")
  70. else
  71.    AlertMessage("Couldn't build Music.exe due to errors.", "Sorry")
  72. endif
  73.  
  74. set talk &saveTalk
  75.  
  76.